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Set forth below is the Declaration of John C. Hughes who, after being first cautioned and 
advised of the penalties of perjury, did declare as follows: 

My Name is John C. Hughes. I reside at 5710 Dcllwood Lane Beaumont, Texas 77706. 
I am a graduate of Lamar University, Beaumont Texas, having received a B.B.A., Bachelor 
Business Administration in Accounting, from that University in 1987. Since my graduation I 
have had extensive professional, experience in the area of banking operations, computer software 
programs and computer programming for such operations. From 1987 through 1991 I was 
employed by Allied Bank, First Interstate Bank, Texas Commerce Bank, Chemical Bank and 
Chase Bank where my duties and responsibilities emailed a study of all banking operations and 
services and a computer operations and programs involving same. "From 1991 through 2000, I 
was employed by First Bank and Trust and SouthTrust Bank. In 1991 - 1992 I was Loan 
Operations Manager. My duties and responsibilities included the establishment of a credit 
analytical analysis department; establishing a loan documentation production department; 
streamlining and increasing loan operations output; managing the merchant credit card services 
program; and managing the agent credit card program. From 1993 to 1995 I was the Loan 
Operations/Computer Network Manager. I was responsible for establishing a local area 
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computer network; establishing a wide area computer network, with remote locations; 
establishing computer host access, remote printing and remote computer assistance operations: 
and establishing computer automations solutions for deposit operations, loan operations, 
mortgage operations and other bank related programs. From 1995 through 1998 I was Loan 
Operations/Project Manager. During this time I built the overdraft protection product as well as 
implemented a 24-hour banking with voice or touch-tone computerized service. I also was 
involved in establishing a Visa check card program and assisted in restructuring and 
implementation of new deposit and loan products and pricing. From 1998 to 2000 T was a 
Project Manager for the bank where I was responsible for check imaging and direct, on-line 
check processing services. Based upon my education and professional work experiences, I am 
familiar with typical and new products and services offered in the banking industry. I am also 
familiar with computer programs involved in the offering of such services and for the banking 
business, in general 

In the year 2000, I established ToGo Solutions, LLC, in Beaumont, Texas. ToGo 
Solutions, LLC is a limited liability company providing services to industries, including the 
banking industry and including the evaluation of software product functionality, feasibility and 
cost analysis involved in the preparation and updating of computerized programs for numerous 
activities involved in general banking operations. Representative clients of ToGo Solutions with 
whom I have performed such services include: Gulf Coast Bank; SouthTrust Bank; First Bank & 
Trust; Bridge City Bank; Security State Bank; Computer Specialist and EXP Internet Services. 

I am familiar with United States Patent Application 09/745, 262.. entitled "Method and 
Apparatus for Creation and Transmission of Financial Statement Data" filed December 20, 2001 . 
I have read and studied the Office Action relating thereto, mailed July 15, 2004. I have studied 
the Blossman reference cited therein. 1 am familiar with and have used Microsoft Outlook 98. 
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Furthermore, 1 have reviewed and studied the claims as amended in this patent application. In 
my opinion 7 the claims as amended and as depended upon said amended claims are not obvious 
to one skilled in the art of computerized programs for the banking service industry,, and as 
explained by the Examiner in the Office Action of July 15, 2004. The Blossman reference 
discloses method and apparatus for transmitting by electronic mail imagery as it would be sent to 
a customer, instead of via hard copy in standardized mail. In contrast, the method and apparatus 
of the present invention transmits data to the customer, which is pre-selected bv the customer 
from all financial data available through the bank computer. This step and means are not 
obvious to me from a reading of the Blossman et al patent. 

In my opinion, the currently amended claims arc clearly distinguishable, not anticipated 
by, or obvious in view of the Blossman et al reference for at least the reason that the additional 
step of building an electronic file comprised of data extracted from the data pre-selected by the 
customer is not suggested or inherently disclosed therein. This is an important feature of the 
present invention as set forth in the original and currently amended claims in that reliance upon 
reports generated by the host financial institution through its computer system is eliminated, and 
the additional step of building an electronic file report as designated bv the customer enables the 
transmission in real time increments designated by the customer of only the' pre-selected data in 
the report file which is built. Nowhere in Blossman et al is this disclosed or inherently 
suggested. 

In the present application, figures 1, 5 f 13, 15, 17 and A each clearly exemplify a step and 
means for building an electronic file report comprised of data extracted from the data pre- 
selected by the customer and which can be generated at real time increments designated by the 
customer. See Fig. 1 for data which can be transmitted on any frequency desired by the 
customer not the host financial institution. Fig. 5 demonstrates an input screen reflecting the 
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transmitted pre-selected data from the report file on days other than when the financial 
institutions host computer system generates periodic statements. The step of building the 
electronic file report enables rhe customer the ability to set preferences for each sub-account. 
This is in contrast with Blossman et al which simply provides for the generation of a regular 
consolidated or unconsolidated periodic statement. The required '"building" step and means are 
not disclosed or suggested or obvious in view of the Blossman et al reference. 

Likewise, for example, fig. 15 in the application clearly shows the step for building a data 
base from the financial data in the computer system with respect to trial balance reports 
TBA1005 and 007. lixtraction or building of the data base is further demonstrated in Figure 17 
through the use of the posting journal P JLOO 1 . 

I have attached certain pages from the specification of the present application. While the 
pages are unnumbered in the application as filed, in order to assist the Examiner I have 
numbered these source code pages, with the first page being the first page of the specification 
containing the source code. Pages 12 and 13 of the source code disclose the recordation of 
customer preferences as a load data sub-routine. Pages 15 and 16 again reference customer 
preferences as designated. This is the Cmdupdate feature. Pages 18, 19, 20, and 21 reference the 
VBtextBox fields for frequencies of statement transmission as designated by the customer. Page 
23 of the source code references the VB combo. This demonstrates a selection of account types 
including a drop down box demonstrating that the intent of the programmer is to give a customer 
the ability to choose or select which accounts or portions of accounts for the transmission of a 
report and to designate or specify unique preferences by account. Pages 26, 27, 30, 3 1, and 32 
reference check box codes and label codes and pages 40 and 41 disclose the broadcast message 
component, i.e., 'transmitting the formatting pre-selectcd date", recited in The claims. 
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Likewise, on pages 44, 45 and 46 of the source code the extraction of loan information 
from a report file (Tba 1005. P rn and Tba 1007. prn) arc being built, As shown, these files are 
reports generated by core processor (FiServ). The reports would be used internally by the 
financial institution for balancing, research or to use in the host system where there is a 
breakdown. These pages clearly, in my opinion, distinguish a key feature of the applicant's 
invention in view of the Blossrnan et al reference which fails to disclose the extraction of 
information from report files to build a database so the forms can be built to conform to customer 
preferences. 

Additionally, page 64 of the source code (frmGenerate -9) shows the building of a 
database using loan information in the financial data in the financial institution computer system. 

Pages 91 and 92 of the source code show a sub-routine for searching report files 
necessary to build the database tables and develop the pre-selected data to be transmitted 
customer preferences are clearly indicated versus standard periodic statements as shown in 
Blossrnan et al. 

Finally, page 156 references the database named (ebalance.mdb) and page 157 of the 
source code, references tables in the database, named (ebalance.mdb). The extraction in building 
of this database or tables is important to the allowance of customized data pre-selected by the 
customer for transmission. 

Further, Declarant Sayeth Not, 

Signed under penalty of perjury this day of January 2005. 

^f, 5^1 ^^1 — 

J[pHh C. Hughes ^ 
5710Dellwood Lane 
Beaumont, Texas 77706 
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chkDays(6) = 0 
bctFields(4) = 
lblLabels(11) = 
Screen. MousePointer = 0 




End Sub 

ub LoadData() 
With tbIAccounts 
txtFields(O) = ![User ID] 
brtFields(l) = ![Account Number] 
txtFields(2) = '[Reference Number] 
txtRelds(3) = ![Name] 

If Trim${![Account Type]) = "Checking" Then Combol.Listlndex = 0 

If Trim$(![Account Type]) = "Savings" Then Combol.Listlndex = 1 

If Trim$(![AccountType]) = "CD" Then Combol.Listlndex = 2 

If Trim$(»[Account Type]) = "Loan" Then Combol .Listlndex - 3 

chkFields(3) = Abs(![Report Balance]) 

chkFields(4) = Abs(![Report Transactions]) 

chkFields(5) = Abs(![Report NSF] = True) 

chkFields(6) = Abs(![Attach Statement]) 

chkFields(l) = Abs(![Extract ASCII]) 

chkFlelds(O) = Abs(![Extract Qwicken]) 

chkDays(l) = Abs(!Monday) 

chkDays(2) = Abs(ITuesday) 

chkDays(3) = Abs(!Wedn©sday) 

chkDays(4) = Abs(IThursday) 

chkDays(5) = Abs(«Friday) 

chkDays(6) = Abs(![Monthly Only]) 
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txtFields(4) » ![Monthly Day] & ,,w 

lblLabe!s(1 1) = Format${![Last Report], ,, mm/dd/yyyy M ) 

End With 
Screen-MousePointer - 0 

On Error Resume Next 
txtFields(1).SetFocus 
On Error GoTo 0 
End Sub 

Private Sub cmdAdd_Cllck() 
ClearFields 

txtFields(O) = CunrentID 
txtFie!ds(1 ).SetFocus 
End Sub 

Private Sub cmdDeIete_C(ick() 



Received Jan-14-2005 1 1 :59am From-409 892 5781 To- Page 008 



FAX NO. : 409 892 5781 



Jan. 14 2005 01 :22PM 



End Sub 

Private Sub cmdPrevious_Click() 
tblAccounts.MovePrevious 

If Err > 0 Or tbIAccounts.BOF Then tbIAccounts.Seek *<=", CurrentID, 9999999999# 
If tblAccounts![User ID] > CurrentID Then tbIAccounts.Seek n <^", CurrentID, 
999999999 
9# 

If tb!Accounts![User ID] = CurrentID Then 

ClearFields 

LoadData 
End If 

End Sub 

Private Sub omdUpdate_Click() 
tbIAccounts.Seek txtFieIds(0) T txtFields(1 ) 

If tbIAccounts. No Match Then tbIAccounts-AddNew Else tbIAccounts.Edit 
With tbIAccounts 

I[User ID] = txtFtelds(O) 

![Account Number] = txtFields(1 ) 

■.[Reference Number] = txtFields(2) 

'[Name] = txtFields(3) 

[[Account Type] = Combol 

![Report Balance] = (chkFields(3) - 1) 

![Report Transactions] = (chkFields(4) - 1) 

[[Report NSF] = (chkFields(5) = 1 ) 

![Attach Statement] = (chkFields(6) = 1) 

/ ^ 
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![Extract ASCII] = (chkFields(1 ) = 1) 
"[Extract Qwicken] = (chkFields(O) = 1) 
![Monday} = (chkDays(1 ) = 1 ) 
^Tuesday] = (chkDays(2) = 1) 
![Wednesday] = (chkDays(3) = 1) 
!|Thursday] = (chkDays(4) = 1) 
IfFriday] = (chkDays(S) = 1) 
.'[Monthly Only] = (chkDays(6) = 1 ) 
If ![Monthly Only] Then 

![Monthly Day] = VaI(txtFields(4)) 
Else 

! [Monthly Day] = 0 
End If 
End With 



frmAccounts - 3 

tbIAcco unts . Upd ate 
Screen. MousePointer = 0 
txtFields(1).SetFocus 

End Sub 

Private Sub cmdClose_CIick() 
Screen. MousePointer = vbDefault 
Unload Me 




iu 
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CiientWidth = 6255 
Icon = (Icon) 

LinkTopic = "Form2 M 
LockControls = -1 True 
MaxButton - 0 'False 
MinButton « 0 'False 
ScaleHeight = 4230 
ScaleWidth = 6255 
ShowlnTaskbar = 0 'False 
StartUpPosftion = 2 "CenterScreen 
Begin VBTextBox txtFIelds 



DataField 


= "Monthly Date" 


DataSource 


- "datPrimaryRS" 


Height = 


285 


Index - 


4 


Left 


5400 


MaxLength 


= 10 


Tablndex 


= 35 


Top = 


3300 


Width = 


315 



End 

Begin VB.CheckBox chkDays_ 
Alignment = 1 'Right Justify 
Caption ® "Report on Monday:" 
DataField - "Monday" 
DataSource * "datPrimaryRS" 
Height = 285 
Index - 1 
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Left = 3660 

Tablndex = 34 
Top = 1740 

Width = 2055 

End 

Begin VB.CheckBox chkDays 

Alignment = 1 'Right Justify 

Caption « "Report on Tueday:" 

DataField = "Twssday 1 ' 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 2 

Left = 3660 

Tablndex = 33 

Top = 2055 

Width = 2055 

End 

Begin VB . CheckBox chkDays 
Alignment = 1 'Right Justify 
Caption = "Report on Wednesday:" 
Data Field = ^ednesday^ 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 3 
Left = 3660 

Tablndex = 32 
Top - 2385 

Width = 2055 
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End 



frmAccounts - 2 



Begin VB.CheckBox chkDays 

Alignment = 1 'Right Justify 

Caption = "Report on Thursday:" 

DataField = Thursday" 

DataSource = "datPrimaryRS" 

Height = 285 

Index - 4 

Left = 3660 

Tablndex = 31 

Top = 2700 

Width = 2055 

End 

Begin VB.CheckBox chkDays 
Caption = "Report Monthly only on the th n 
DataField = "Monthly^^ v 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 6 

Left = 3180 

Tablndex = 30 

Top = 3315 

Width = 2775 

End 

*2^> 
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Begin VB.CheckBox chkDays 

Alignment = 1 'Right Justify 

Caption = "Report on Friday:" 

DataReld - "Friday^ 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 5 

Left = 3660 

Tablndex = 29 

Top . = 3000 

Width = 2055 

End 

Begin VB.TextBox txtFields 

DataField = "Name" 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 3 

Left = 2040 

MaxLength = 50 

Tablndex = 2 

Top = 1080 

Width = 3435 

End 

Begin VB.TextBox txtFields 
DataField = "Reference Number" 
DataSource = "djatPrimaryRS" 
Height = 285 
Index = 2 
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/ 
/ 



Top = 3315 

Width =315 
End 

Begin VB.ComboBox Combol V 
DataField = "Acco unt Ty &eJ-, 
DataSource = "datPrimaryRS" 
Height =315 
Left = 2040 

Style = 2 'Dropdown Ust 

Tablndex = 3 / 

/ 

Top =1425 

Width = 1575 J 

End f 
Begin VB.PiclureBox picButtons 

Appearance = 0 'Flat 

BorderStyle = 0 'None 

ForeColor = &H80000008& 

Height = 360 

Left ~ o 

ScaleHeight = 360 

ScaleWidth = 6345 

Tablndex = 18 

Top = 3780 

Width = 6345 

Begin VB.CommandButton cmdNExt 
Caption = "&Next" 
Height = 300 
Left = 4200 

Z3 
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Top = 2700 

Width - 315 

End 

Begin VB.CheckBox chkFields 
DataField = "Rej>grtN§F" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 5 

Left = 2040 

Tablndex = 6 
Top = 2385 

Width =315 
End 

Begin VB.CheckBox chkFields 



DataField 


= "Report Transactions' 


DataSource 


= "datPrimaryRS" 


Height = 


285 


Index = 


4 


Left = 


2040 


Tablndex 


= 5 


Top = 


2055 


Width 


315 



End 

Begin VB.CheckBox chkFields 
DataField - "Report Balance" 
DataSource = "datPrimaryRS* 
Height = 285 
Index = 3 



1M 
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Left 



2040 



Tablndex 



= 4 



Top 



1740 



Width =315 
end 

Begin VB.TextBox txtRelds 
DataField = "A ccount Nu mber" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 1 
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Top = 3000 

Width = 1815 
End 

Begin VB. Label IblLabels 

Caption = "Extract Qwicken:" 

Height = 255 

Index = 7 

Left = 120 

Tablndex = 23 

Top = 3315 

Width = 1815 



frm Accounts - 6 
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Height 


= 255 


Index 


= 5 


Left 


= 120 


Tablndex 


= 16 


Top 


= 2385 


Width 


- 1815 



End 

Begin VB. Label IblLabels 

Caption = "R eport Trans actions:" 

Height = 255 

Index - 4 

Left - 120 

Tablndex - 15 

Top = 2055 

Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Report Balance:" 

Height = 255 

Index = 3 

Left - 120 

Tablndex =14 

Top = 1740 

Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Account Type:" 

Height = 255 
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Index = 2 

Left = 120 

Tablndex = 13 

Top - 1425 

Width - 1815 
End 

Begin VB.Label IblLabels 

Caption = "Ac count Num ber" 

Height = 255 

. Index = 1 

Left = 120 

Tablndex = 12 

Top = 380 

Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Qust omer ID:" 

Height = 255 

Index = 0 

Left = 120 

Tablndex = 10 

Top = 60 

Width - 1815 
Erid 



frmAccounts - 7 



End 
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tbIUsers.MoveFirst 
While NottblUsers.EOF 

Combo l.Addftem tblUsers![Sort Name] 

tblUsers.MoveNext 
Wend 

Combol .Listlndex - 0 
End Sub 



frmBroadcast - 1 



VERSION 5,00 

Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0 W ; "MSMAPI32.0CX" 
Begin VB.Form frmBroadcast 

BorderStyle = 3 'Fixed Dialog 

Caption - M Q-Maii Broadcast" 

ClientHeight = 4890 

ClientLeft = 45 

ClientTop = 330 

ClientWidth - 7980 

Icon = (Icon) 

LinkTopic = "Forml" 

LockControls = -1 True 

MaxButton = 0 'False 

MinButton = 0 "False 

ScaleHeight = 4890 

ScaleWidth = 7980 

ShowlnTaskbar = o 'False 
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StartUpPosition = 2 'CenterScreen 

Begin MS MAPI . MAP I Messages MAPIMessagesI 

Left = 2000 

Top = 2100 

JExtentX = 1005 

_ExtentY = 1005 

..Version = 393216 

AddressEditFieldCount= 1 

AddressModffiable= 0 'False 

AddressResolveUI= 0 'False 

FetchSorted = 0 'False 

FetchUnreadOnly = 0 'False 
End 

Begin MSMAPl.MAPISession MAPISessionl 

Left = 3240 

Top = 2100 

__ExtentX = 1005 

_ExtentY = 1005 

_Version = 393216 

Download Mail = 0 'False 

LogonUI = -1 True 

NewSession = -1 True 

Password = "estatement" 

UserName = "©statement- 
End, 

Begin VB.TextBox Text2 
Height = 316 
Left = 2040 
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Index 


— n 


Left 


= 900 


Tablndex 


= 5 


Top 


= 240 


Width 


= 915 



End 
End 

frmGenerate - 1 

Option Explicit 

Dim FilNum%, CancelFl ag% 

Sub ReadLoans{) {'Read the loan trial ba lance info rmation ^ 

Dim A$, B$, C$, X%, FilNum%, Accounts, FileNameS, Pages%, CurrentPage%, 
OldlndexS 

Oldlndex$ - t blAcc oun ts.lndex 
tbIAccounts.Index = "Account Number 11 
tblBalances.Index = "PrimaryKey" 
For X% = 1 To 2 

If X% = 1 Then F?leName$ = " TbalOOS-piTT Else FiteNameS = , Tbal007_pm" 
If Dir(ReponPath & FileName) = - Then GoTo NextFile 
FilNum% = FreeFite 

Open ReportPath & FileName For Input As FilNum% 
Line Input #FHNum%, A$ 
Line Input #FilNum%, A$ 

LoanDate = Mid$(A$, 47, 2) & & Mid$(A$, 49, 2) & n - B & Mid$(A$, 51 , 2) 
LoanDate = Format$(LoanDate. "mm-dd-yyyy") 
Pages% = Val(Mid$(A$, 74, 4)) 
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CurrentPage% = 0 
Labell = 

Label2 = "Reading " & FileNameS & '\.." 
ProgressBarl _VaIue = 0 
ProgressBarl .Visible = True 
DoEvents 

While Not EOF(FilNum%) 
Line Input #FilNum%, AS 
A$ = RTrim$(A$) 
If A$ = Chr$(12)Then 
CurrentPage% = CurrentPage% + 1 

If CurrentPage% < Pages% Then ProgressBarl .Value = (CurrentPage% / 

Pages%) 
MOO 

DoEvents 
GoTo NextLine 
End If 

If Len(A$) < 80 Then GoTo NextLine 
Accx>unt$ = Trim$(Mid$(A$. 2. 11)) 

If Vat(Account$) > 0 Then 'New Loan 

, . . .. — ■■ .> 

tbIAccounts.Seek Accounts 

If tblAccounts. No Match ~ True Then GoTo NextLine 

Line Input #FiINum%, B$ 

Line Input #HINum%, C$ 

With tbIBalances 

LabeM = "Adding Loan " & Accounts 

DoEvents 

.Seek Accounts 
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If .NoMatch Then .AddNew Else .Edit 



On Error Resume Next 



! [Account] = Accounts 



![Last Update] = LoanDate 




![Balance] = CCur(Trim$(Mid$(AS, 51, 12))) 



If lsDate(Mid$(A$, 124, 8)) Then ![Date of Last Deposit] = Format$(Mid$ 
(A$. 124. 8)) 

If lsDate(Mid$(B$. 63. 8)) Then ![Maturity Date] = Format$(Mid$(B$, 63, 
8). "mm/dd/yyyy") 

If lsDate(Mid$(C$, 63, 8)) Then ![Next Due Date] = Format$(Mid$(C$, 63, 
8), "mm/dd/yyyy-) 

![Net Payoff] = CCur(Trim$(Mid$(C$, 50, 12))) 
![Rate] = CSng(Trim$(Mld$(C$, 76, 7))) 
![Payment] = CCur(Trim$(Mid$(A$, 74, 10))) 
![YTD Interest] = CCur(Trim$(Mid$(C$, 85, 11))) 
![Misc] = Trim$(Mid$(B$, 14, 33)) 

![Last Deposit] = CCur(Trim$(Mid$(B$, 73, 10))) 'Past Due Amount 
If Err = 0 Then .Update Else .CancelUpdate 
On Error GoTo 0 



frmGenerate - 2 

End If 
NextLine: 
Wend 
NextFile: 
Close FHNum% 



End With 
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e, "Currency") & Chr$(10) 
End If 

T$ = T$ & n Mat^rityDate: m & Format$(tbIBaIances![Maturi 
ty Date], "mm/dd/yyyy") & Cbr$(10) 

T$ = T$ & M Next Inte rest Date: " & Format$(tbIBalances![Date of 
Last Deposit], '•mm/dd/yyyy ,, ) & Chr$(10) 

If tblBalances![Last Deposit] <> 0 Then T$ = T$ & ,r Accrued Inter 
est " & Format$(tblBalances![Last Deposit], "Currency") & Chr$(10) 

T$ = T$&Chr$(10) 
Case "Loan" 

If FormatSfLoanDate, "Short Date") <> Format$(Pdate$, "Short Date") T 

hen 

.•"irTnGenerate - 9^— . 

T$ = T$ & - All Information as of: " & Format$(LoanDate, "Short 
Date")&Chr$(10) 
End If 

T$ = T$ & " Loan Nu mber " & FNum(tblAccounts![Account N 

umber]) & " - " & tbIAccounts.'Name & Chr$(10) 

T$ = T$ & " Current Balance: " & Format$(tblBalances![Balanc 

— ■ 

e], "Currency") & Chr$(10) 

if tblBafances![Last Deposit] > 0 Then T$ = TS & " Past Due Amoun 
t: " & Format$(tblBaIances![Last Deposit], "Currency") & Chr$(10) 

T$ = T$ & " Interest Rate: " & Format$(tblBalances![R 

ate] / 100, -mm.oo %-) & chr$(io) 

T$ = T$ & " . Payment Amount: " & Format$(tblBa!ances![Payment] 

V. 

IaX 
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If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = "MNTB003.PRN" 

If Dir$(ReportPath & FileName) = " M Then FilesMissing = FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = "MNTB004PRN" 

If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = "MNTBOOSPRN" 



frmMain - 6 



If Dir$(ReportPath & FileName) = HU Then FilesMissing = FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = TBAL005.PRN" 

If Dir$(ReportPath & FileName) = Then FilesMissing - FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = , TBAL007.PRN' i 

If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = TBAL008.PRN" 
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If DirS(ReportPath & RleName) = Then FilesMissing = FilesMissing + 1: If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = TJNL001 PRN" 

i 

If Dir$(ReportPath & FileName) = Then 'FilesMissing = FilesMissing + 1: If 

! 

AutoFlag j 

= False Then GoSub ShowMissing I 

I 

FileName = "PJNL002.PRN n 

If Dir$(ReportPath & FileName) = Then jFilesMissing = FilesMissing + 1: If 

i 

AutoFlag j 

- False Then GoSub ShowMissing j 

i 

FileName = "STMT090.PRN" I 

l 

If Dir$(ReportPath & FileName) = Then iFilesMissing = FilesMissing + 1: If 

i 

AutoFlag j 

- False Then GoSub ShowMissing 
FileName = "CFLZ007.PRN H 

t 

If Dir$(ReportPath & FileName) = Then iFilesMissing = FilesMissing + 1; If 
AutoFlag 

= False Then GoSub ShowMissing 
FileName = "CF 026.PRN" | 

If Dir$(ReportPath & FileName) = w " Then ;FilesMissing - FilesMissing + 1: If 

| 

AutoFlag 

I 

= False Then GoSub ShowMissing j 
RleName = "CF 027.PRN" j 

If Dir$(ReportPath & FileName) = "" Then ^FilesMissing = FilesMissing + 1: If 

i 

AutoFlag 

i 

= False Then GoSub ShowMissing 
If FilesMissing = 0 Then 
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Left = 240 

Tablndex = 3 
Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdClose 

Caption = "SCIose" 

Height = 300 

Left = 1350 

Tablndex = 1 

Top = 0 

Width = 975 

End 
End 

f~ Begin VB.Data datPrimaryRS 
j Align - 2 'Align Bottom 

' Caption = "" 

Connect = "Access" 

DatabaseName - "C:Yebalance\ebalance.mdb" 
DefaultCursorType= 0 'DefaultCursor 
DefaultType = 2 'UseODBC 
Exclusive = 0 'False 
frmUsersGrid - 2 



Height = 345 

Left = 0 

Options = 0 

Readonly = 0 'False 
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RecordsetType = 1 'Dynaset 



Record Source = 



tin 



Top 



= 3945 



Visible 



= 0 'False 



Width 



- 8175 



End 



End 



Modulel - 1 





Option Explicit 



Public fMainForm As frmMain 



Public CurrenttD As Long, LoanDate As Date, LastUpdate As Date 
Public ReportPath As String, RlePath As String, LoanPath As String 



> Public ReportSet As String, ReportDaieAdd% 

I Global wrkJet As Workspace 

I Global dbs As Database 

| Global UsersDisabled As Boolean 

Global tbIAccounts As Table 

Global tblUsers As Table 

Global tbIBalances As Table 

Global tblTrans As Table 



Global tbINSF As Table 
Global tbITranCodes As Table 
Global tbIHistory As Table 

Global AutoF(ag%, LastComplete As Date, LastTry As Date. NextTry As Date. 
FilesMlssin 



yr7 
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